Kojima Shindo Test Example
cp
PATH
AMPL
short
= 0;
]]>
param xinit
: 1 2 3 4 5 6 7 8 :=
1 0 1 100 1 1 0 0 1.25
2 0 1 100 0 0 1 1 0
3 0 1 100 1 0 1 0 0
4 0 1 100 0 0 0 1 0.5 ;
for {point in initpoint}
{
printf "Initial point %d\n", point;
let{i in Rn} x[i] := xinit[i,point];
solve;
display max{i in 1.._nccons} abs(_ccon[i]), min{i in 1.._ncons} _con[i].slack;
}